home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 November / Ahoy_Magazine_88-11_1988_Double_L.d64 / Mini Mon (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  381b  |  12 lines
  1. 60000 rem *** mini mon ***
  2. 60001 print"[147]enter memory locations:"
  3. 60002 input"from...";f:input"to.....";t:iff<0ort>2^16orf>tthen60001
  4. 60003 print"press <shift> to pause <_> to exit"
  5. 60004 fork=ftotstep6:k$=mid$(str$(k),2):printk$tab(6)"->";:forj=ktok+5:a=peek(j)
  6. 60005 r$=".":ifa>31anda<96thenr$=chr$(a)
  7. 60006 t$=t$+r$:a$=mid$(str$(a),2):iflen(a$)=3then60010
  8. 60007 a$="0"+a$:iflen(a$)<3then60007
  9. 60008 ifpeek(653)=1then60008
  10. 60009 ifpeek(197)=57thenpoke198,0:end
  11. 60010 printa$":";:next:print" "t$:t$="":next
  12.